home *** CD-ROM | disk | FTP | other *** search
- ; Remove AlphaSpell 6
-
- (transcript "Removing AlphaSpell 6")
- (welcome "This script will remove AlphaSpell 6 from your system.")
-
- (if (exists "AlphaSpell:" (noreq))
- (
- (startup
- (prompt "Removing AlphaSpell: Assign from User-Startup")
- (help @startup-help)
- )
- (set #path (getassign "AlphaSpell"))
- (makeassign "AlphaSpell")
- (run (cat "delete " #path " all quiet"))
- (delete #path ".info")
- (message "The removal of AlphaSpell 6 is finished.")
- )
- (message "AlphaSpell 6 is not even installed.")
- )
- (exit (quiet))
-